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really flies when you're having fun! (or are really busy) It's hard to believe that 
four issues of the NOTES have been published already. I can still remember vhen the first sub- VERA] 2D 3-10) BOS Aber PAGE 4 


scriptions started rolling in and now there are over 800 KIM sfficianados in the group with no 
Signe of tapering off. 
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Got a flyer froe Forethought Products. They announced KIMSI, an 8-elot sotherboard that 
would enable most S-100 type boarda to be used vith KIM. They say that all decoding and buffer— 
The format of our little journal is in a state of flux-as you can see. The booklet form me is provided. Get more info from Forethought Products, P.0. Box 386, Coburg, Ores, 
seemed like # good idea until I got feedback from a number of you indicating that something a : 
Little easier to punch and insert in a binder would be # little more convenient. Well, here it . 
is. I hope this will improve things. 











KIM-1 SOFTWARE PACKAGES 
Don Lancaster's really been busy with his KIM-1! Two national hobbyist magazines will be 








featuring Lancaster's KIM TV typewriter circuits this sumer. Watch Kilobaud magazine in issue Robert Tripp, author of the PLEASE package, mentioned that he ia making four sore KIM-1 
#6 or #7 and check out Popular Electronics for July apg August. software packages available soon. Tripp says his packages, known as HELP, will include a text- 
a 3 ae editor, a mailing list handler, a form letter writing aid, and an information retrieval systes. 
Rumor has it that Mr. Lancaster is aleo working on a KIM graphics interfece. His latest For wore info, write The Computerist, P.O. Box 3, Chelmsford, Mass. 01824, ask for HELP. 
book (bible?), CMOS COOKBOOK, will be reviewed in an upcoming issue of the USER NOTES. sececececce . 
Robert Cushman, Special Features Editor for EDN (one of the top industrial electronics TO NEW SUBSCRIBERS 
magazinee), has started a series of tutorial articles on microsystea design procedures that a 
r of our KIM-1 User Group, wants people to At least one of you, who recently subscribed to our Notes, did not get all three back is- 





start thinking in terms of jan just function design and will evidently be They came apart in route and the Post Office sent back the piecea. We are now using en- 
using KIM in design examples. elopes for mailing back issues ‘cuz we want to be sure no one misses any data. Please contact 
me if you were shorted one or two back issues recentlys...e« 





More and more computer clubs have KIM-1 special intersst groups. Here's two more: 





Long Island Computer Association (LICA) contact KIM-1 Coordinator-Steve Perry, 6 Brookhaven 








Drive, Rocky Point, N.Y. 11778 S1G- TH4#-GHL2Z after TpPm- Gi RECEIVE ROUTINE 
' 
G New J. ” x ordin John Loofbourrow 73 magaziné, April '77 (page 80) has a morse code interpreter program that may be of in- 
B55 708 Cache cae ake euwereey seca tact 630K eroup coordinator Jobe enrow ef. terest to you hams. It was written for the 6800 but could be adapted to KIM with little work. 
To convert your receiver's audio output to a digital signal so your computer can work on it 
Re* oa x P on 
EUE THIS ON YOUR SOCIAL CALENDAR you need some type of filtering and digitizing circuitry. A circuit of thie type wae included 
The second annual COMPUTERFEST '77 (June 10, 11, 12 = Cleveland Ohio) will be held at the in an article which appeared in Popular Electronice, January '77 (page 37). The complete cir- 
Bond Court Hotel, 777 St. Clair Avenue in downtown Cleveland. An Admission charge of $2.00 will cuit for the signal conditioner could consist of IC 1, 2, 3, and 5 from the echenatic on page 39. 
be good for a weekend of manufacturers exhibits, seminars, tech sessions, a flea market etc. For ir t mT 1 hy us, < s 
woreinformation- send a S.A.S.E. to Midwest Affiliation of Computer Clubs, P.O. Box 83, Brecks- any of you are working along these lines, let's hear from you. 
ville, Ohio 44141, (MA.C.c) 
CORRECTION TO_ISSUE eo Lewart informed me that on page 7, the memonic in sddress lo- 
cation 22 should be LDY # (not LDX #yy), the machine code (AO)is correct. MORE OM THE SERIAL A'DAPTOR BOARD SAB=1 
eecccccevee Bob Grater had an article in Kilobaud magazine issue #1 (page 114) which explained the SAB~ 


1 with @ full schematic and interface details. If you're adapting a parallel input TVT to your 


machine and want it to look like a terminal, check this out. 
KIM-1 USER NOTES is published every 5 to 8 weeks. The subscription rate for U.S. and Can- 


adian subscribers is $5.00 for i 1 thru 6 including lst class posts, Foreign subscrip- secceececce 
tions - $8.00 including let clas: r mail postage. = 








KIM-1 ACCESSORIES MARKET 
Paysent should be made in U.S, funds with a check or money order (no cash or purchase or- 


dera) please. I've had conversations with 





eral manufacturera who will be marketing accessori for KIM 














shortly. Among these items will be an optical bar code scanner and software loader, several en- 
KIM~) USER NOTES ° closures, boards for the KIM-4+ etc. As soon as formal product announcesents are received, they 
c/o Eric C,. Rehnke will be passed along in the No! I will not evaluate these producta or even infer that they 


425 Meadow Lane actually exist until I've seen them. 
Seven Hille, Ohio W131 Prone - 216-524-7241) — 


Tt sounds like KIM is really taking hold in the marketplace. 
To alleviate possible typographical errors, ple: try to submit articles in original type, 


single spaced on white bond so that we may cut and paste instead of retyping. Aleo, if you ex- ocereeceee 


pect a ‘sonal response to correspondence, please include a self addressed stamped envelo, to 
help defray sapencess i ne 3 ree Let me Kwow YouR opimiow of THIS TYPE NEWSLETTER foamar! 
a biog sterdie 


‘ 
HEY RITY “s - THERE 15 Aw AUTO-stART NET ON BO NETERS 











La ions OOF] and OOF2,,When you hit GO, the contents of OOFl transfer to the status 

ret tl c| ter. Als tt OOF1 to 00 t. id b dental. + <n" 
in‘decieal wode; and OOF2 to FF to avold having the stack “write over” your page 1 programa” (3637.5 Kuz £10 v2) THAT INCLUDES SOME KIM-t's . FOR MORE | 
or date. «+ Jim Butterfield INFO , CONTACT TRUMAN GoERKOEL KBIUG 


- Pe - 2050 BROKRIBCE DR.) DAYTON CIO 4543} - 


PAGER 























t t to RELOCATE, Jim Butterfield On the other hand, if you have memory expansion and your O13E Bl FA LDA (POINT),Y hi-order operand 
Introduction to ERCCATE Toronto Program is at address 2000 and up, your page limit 0140 20 79 ol JSR ADJUST change address, maybe 
will need to be much higher, You'd normally set 0143 91 FA STA (POINT) ,¥ «..and put it back 
Ever long for an assembler? Remember when you wrote that the page limit to FF, the highest page in memory. 0145 88 DEY Yel 
300 byte program - and discovered that you'd forgotten one 0146 BA TA 
vital instruction in the middle? And to make roam, you'd Place the page limit in location 7. oy 2 a ota (POUT) ngaiee hi-order 
ha’ 11 those branches, all those addresses... - 
On the prorren with that Neat piece of coding in it, that Now you're ready to go. Set RELOCATE’s start address, hit go - O14B 10 DE EPL SKIP 
you suddenly need to remove (say, to change it to a and ZAP!- your sddresses are fixed up. cai ¢8 sb prenens cheek ‘to! and Biol adres 
£ "ll have to fill all = 
tal eapie cpaee eat eat dteencugh to make a grown After the run, it's s good idea to check the address now in O1LE AG SA LDX FOINT ‘fron! addrs lo-order 
felted cry. OOEA and OOEB - it should point at the FF at the end of your 0150 AS EB LDA POINT+1 .. & hi-order 
ih ae Program, confiming that the run went OK. 0152 20 79 oL JSR ADJUST change, maybe 
ram RELOCATE will fix up all those 0155 8&6 EO STX ALOC save lo-order only 
adresses and bsnaber tor you, whether you're opening out Now you can move the program. If you have lots of memory to 0157 A2 FF LOX #9F flag for 'back' branches 
a progran to fit in an extra instruction, closing spare, you can write a gererel MOVE program and link it in to 0159 Bl EA LDA (POINT),Y get relative branch 
up space you don't need, or just moving the whole thing RELOCATE, 30 as to do the whole job in one shot, 015B 18 cu 
smreplace)elze: Bat if, like ne, you're menory.deprived, you'll likely want to ide 93 OF rep a talk 
RELOCATE doesn't move the data, It just fixes up the addres: run RFLOCATE first, and then losd in a little custom-written 0160 EB nx nope 
before you make the It won't touch sero page addreeses; you'll program to do the actual moving. The program will vary depending 916) 66 B} OVER STK LIMIT 
want them to stay the same, And be careful: it won't wam on which way you want to move, how far, and how much memory is to 0163 18 cle 
you if a hranch instruction goes out of range. to be moved, In a pinch, you can use the FF option of the cassette 0164 €5 EA ADC POINT calculata 'to' lo-order 
input program to move your program, 0166 AA TAX «sand put ind 
t f tt bout ir i , 
OGLE ave C0: Cire RELOCATE a; lot ‘of; Snforea tion ‘about soe Last note: the program terminates with a BRK instruction. par 8 4 ioe er ei hi-onter 
Program: Be sure your interrupt vector (at 17FE and 17FF) 1s set 0168 20 79 ol JSR ADJUST change, maybe 
(1) Where your program starts, This is the first instruction to KIM address 1000 so that you get a valid 'halt', O16E CA DEX readjust the offset 
in your whole program (including the part that doesn't move). OlG CA DEX 
RELOCATE has to lock through your whole program, Jim Butterfield 0170 6A TXA 
instruction by instruction, correcting addresses and 6502 Progrem: RELOCATE 14 Brooklyn Avenue 0171 38 SEC 
branches where necessary. a oars roar protren 32. Fabruary, 1977 Toronto, Ontario MuM 2x5 ae ES = SiC thor recalculate relative branch 
a continuous series of instructions (don x — 0: 91 STA (POLNT),Y and re-insert 
4n; RELOCATE will teke a data value of 10 as a EPL ™! 0176 CB INY Ya2 
instruction and try to correct the branch address), ; following addresses must be initialized 2 0177 10 B2 BPL SKIP 
and place a dud ane trun tian (FF) Babine yer sae ; by user prior to = cian heh aa ' 3 examine address and adjust, maybe 
program instruction, This tells RELOCATE where 00E7 limit above cl relocn v3 0179 CS F7 ADJUST CMP PAGLIM 
atop, OES adjustment distance (signed) = “0173 0 11 BCS OUT too high? 
O0EA start of prog + 017 C5 CMP BOUNDs1 
Place the program start address in locations EA and EB, OoEC lower boundary for adjustment ~ O17 DO 02 BNE TES2 high-order? 
low order first as usual, Don't forget the FF behind 3 main program starts here 2 * 0181 Eb EC CPX BOUND lo-ordert 
the last. instruction; it doesn't matter if you 0110 DB START CLD Vv 0183 90 09 TES2 BCC OUT too low? 
temporarily vipe out a byte of data - you can always 0111 Ao 00 apy oui = ‘ cals rm oes - PHA stack ht-order 
‘ pat it back later, 0113 Bl EA +X get op 0. TA 
O11 a8 TaY + cache in ¥ 0127 18 cle 
(2) Where relocation starts, Thie is the first address 0116 a2 07 Lx #7 2 ~ O188 65 EB ADC ADJST adjust lo-order 
in your progran that you want to move. If you're o11e 98 LOOP” TTA restore op code r O1FA AA TAX 
moving the whole program, it will be the same as 0119 3D && ol AND TAB1-1,X = remove unwanted bits 3 O18B 68 PLA unstack hi-order 
the program start addre: atove, This address is ollc 5D 95 Ol POR TAB2-1,X & test the rest a 018 65 E9 ADC ADJST+1 and adjust 
called the boundary. OllF FO 03 BBQ FOUND 0188 60 OUT RTS 
0121 CA DEX on to the next test ¥ stables for op-code identification 
Place the bodary address in locations BC snd ED, 0122 Do F4& BNE LOOP eee Af any & | 01% oF OD TABL BYTE $00, $1F $00, $87,$1F .SFF $03 
low order first, 0124 EC 9D 01 FOUND LDY TAB3,x length or flag 1 | 0192 87 IF FF 
(3) How far you will want to relocate information alcve the 0127 30 oD EMI TRIP triple length? ine € 0195 03 
boundary, This value ie called the increment. 0129 Fo 22 BeQ BRAN branch? >a 0196 OC 19 08 TAB2 BYTE $0C,$19,$08,$00,$10,$20,803 
For example, tf you want to open up three more locations 012B E6 EA SKIP INC POINT Mving right along.. & 0199 00 19 20 
in your program, the increment will be 0003. If you 01D Do 02 BNE INEX .-to next op code 01% 03 
want to torte up aur eddre: cope a “an O1F £6 EB INC POINT+1 8 0190 02 FF FF TAB}. BYTE 02, $F , $F ,$01,$01,$00, $FF SFE 
be FFFC (effectively, a negative numter), 0131 88 INEX DEY 01A0 01 01 00 2 
Place the 1 nt value in locations E? and £9. Oe BOE? a nie H mre 
ice the increme ralue ca 3 . 0134 Fo DA A : end 
t. : 
devsorter t2re% 0136 ¢8 pen or t1legal . Credit for the concept of RELOCATE goes to Stan Ockers, 
(4) A page limit, above which relocation should be disabled, 0137 30 D9 EMI START+2 illegal/end to BRK halt Who insisted that it was badly needed, and maintained 
For example, if you're working on a program in the 0139 ¢8 Iny set Y tol despite my misgivings that it should be quite 
0200 to bean your program might. also sane 013A Bl EA LDA (POINT),Y  lo-order operand straightforward to program. He was right on both counts. 
. a timer or 1/C registers, and might call subroutines TAX as. into KX reg 
in the monitor. You don't want these addresses ote = Bt Ye2 THAMES to Jim + stan II 7 


relocated, even though they are above the boundary! 
So your page limit would be 17, since these adresses 
are all over 1700. 


’ 
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MOVIN' - How to move data or prograns around Jin Butterfield 


Rere's a few little progrems/procedures to use when you want 
to move memory contents around, They Sit in anywhere. 


In the next two progrems XX XX means the ‘from’ address minus one; 
TT TT means the ‘to’ address minus one. In both cases, these are 
the starting addresses of your data, NN is the total number of 
locations to be moved, Check the examples if this isn't clear, 
(1) Move 1-256 tytes to a higher address: 
A2 NN ED XX XX WD TT TT Ca Do F7 00 
Example: nove contents of 02340278 to 0256-026 
A2 45 BD 33 02 M §7 02 CA DO F7 00 
(2) Move 1-256 bytes to a lower address: 
A2 00 E8 H XX XX W TT TT Bo NN DO FS 00 
Example: move contents of 0258-0288 to 0234-0274 


A2 00 B8 HD 57 02 WD 33 02 Bo 31 Do F5 00 





















KIM-1 UTILITY: DIRECTORY Jim Butterfield 
Toronto 

Ever thought about the best way to organize your 
programs on tape? I used to call the first program 
on each tape number 01, the next 02, etc. Mostly 

I was afraid of forgetting the ID number and having 
trouble reading it in. Program DIRECTORY (below) 
fixes up that part of the problem and liberates you 
to choose a better numbering scheme. 


You've got 254 program IDs to choose from ... enough 
for most program libraries with some to spare. 

So why not a little structuring to help you remember 
what a program is for? 


I suggest the following: First digit - 0 to 9 for 
completed (or ‘permanent') programs ... A to F for 
programs you're still working on; Second digit - 

0 to 9 for programs, A to F for data files. 

Using this scheme, I'd know that ID 5E is a 

permanent data file; A} is a program still being writ. 


So every program and data file would carry a unique 
number ... and if you've forgotten what's on a given 
tape, just run DIRECTORY and get all the IDs. 


Another thing that's handy to know is the starting 


address (SA) of a program, especially if you want to 
(3) Move over 256 bytes: copy it to another tape. (Ending addresses are 
easy ... just load the program, then look at the 
I recommend writing the data you want to move onto contents of 17ED and 17EE). Well,’ DIRECTORY shows 
a fresh cassette tape. starting addresses, too. 





Now, put the address where you want the data into 
locations 1775-6 (low order first, as always), 
Put FF into location 1779 and perform a tape read, 


Tom Wear 
380 Belaire 


Punta Gorda, FL33950, 


Dear Eric: 


Per your query for info on 74LS145, I purchased mine from 


Active Electronic Sales Corp 
F. O. box 1035 














I got the idea for DIRECTORY from Peter Jennings, 
Toronto, who has a teletype-oriented program to do 
the same thing. This version uses keyboard/display. 


The program is fully relocatable, so put it anywhere 
convenient. Start at the first instruction (0000 

in the listing). Incidentally, 0001 to 001D of this 
program are functionally identical to the KIM monitor 
1939C to 18C1. 


After you start the program, start your audio tape’ 
input. When DIRECTORY finds a program, it will 
display the Start Address (first four digits) 

and the Program ID. Hit any key and it will scan 
for the next program. 


: 0000 D8 co CLD 
Framingham, MA 01701 0001 AY 07 LDA #$07 Directional reg 
(617) 879-0077 0003 8D 42 17 STA SBD 
0006 20 41 1A SYN JSR RDBIT Scan thru bits... 
They stock a most complete list of 74LS chips as well as many 0009 46 F9 LSR INH +-shifting new bit 
other hard-to-find items, like the latest off the production 000B 05 F9 ORA INH +.into left of 
line at Texas Instruments in TTL as well as linears, all grade § ooop 85 F9 STA INH ..byte INH 
one--no surplus, rejects and junk. [inimum order 410.00 plus OOOF C9 16 TST CMP #$16 SYNC character? 
21.00 postage and handling. 0011 DO F3 BNE SYN no, back to bits 
2 0013 20 24 1A JSR RDCHT get a character 
Their initial response has been good--7 to 10 days~-however on § 0016 C6 F9 DEC INH count 22 SYNC's 
a few occasions "temporary-out-of-stock back-orders" have been § 9018 10 FS BPL TST 
neglected, Direct communication with Manager Alan Barroll has § 001A cg 2A CMP #$2A then test astk 
solved these oversights quickly. 001C DO Fi BNE TST «or SYNC 
x isk 
I exchanged the KIM-1 U4 74145 for the 'LS' version and have pole ae 5 19 RD 4 feed Baan} betes 
adapted an OSI mother board to provide 74LS367 3-State Hex 0023 95 FC STA POINTH+1,X into display 
Bus Drivers for the address lines and 8833 for the data lines.f 0025 £3 INX area 
I will share this and other hardware and software items as 0026 30 FS BMI RD 
soon as I can produce the legible drawings and write-up (docu-f 0023 20 1F 1F SHOW JSR SCANDS' ...and shine 
mentation is always the toughest part). 002B DO D3 BNE GO until keyed 
002D FO F9 BEQ SHOW at's all folks 
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KIMMAZE by Stan Ockers & Jim Butterfield 1--test new key depression 



































































0259 20 40 1F JSR KEYIN set dir reg 4 hiels Oesten 
Find your way out of the maze. You're the flashing 025¢ 20 6A 1P JSR GETKEY key?.. AGE x Srostykkeves 195 
light in the centre of the display. As you move o25P C5 D? CMP SOK ++8ame as last? . pcs Hvidovre 
up (key 9), down (key 1), left (4) or right (6), 0261 FO CD BEQ LIGHT ® meee 
YIM will keep you in the central display; you'll 0263 85 D7 STA SOK no, record it 
see the walls of the maze moving by as you travel. 1--test which key 4 note on speedinr up the KIF tave routines. I did it by relocation of 
Like walking through a real maze, you'll only see 0265 A2 Ob _ LOX #4 5 items in table | sos, 10 - 146A and chaning of nos. 199F to 03 and 1905 to 02. Triale 
a small part of the maze as you pass through it. 0267 DD A® 02 SCAN CrP TAB2,X A 
If you can ret out, you'll find yourself in a large 026A FO 05 BEQ FOUND showed that the delays in the RDBIT-routines had to be changed to: 
open area; that mean's you've won. aid <A re per Scat UAE: 04 5 LA62: 02. 
Frogram starts at address 0200. 026F 30 BC BI LIGHT This is what J. B. calle “.PESDTAPE". I did not make it faster because 
0271 CA FOUND i 
0200 08 START CLD 0272 30 @C me ‘Staite as: Rey the filter between the PLL and the comparator is desirned for the 
0201 A2 02 LDX #2 3 values ‘test if wall y ori inal KIk-pveed (4(%) Kaud) and it will derrade the corvarator input 
0203 BD BS 02 SETU! LDA INIT,X from init 0274 BC AD 02 if the d y " 
0208 95 De STA i2ETeX Eto make: pir pike Tob on iy ZABS.X the sneed exceeds say 1200 Band. The comoarator input waveform becomes 
0203 CA DEX 029A 3D Bi 02 AKD TADS X triangular and the peak-to-peak value decreases. 
0209 10 F@ Bi L SETUP 027D Do Bi BNE LIGHT A surrestionr for some hardvare: Use two NA2S25/74S2A9 16 X 4 RAMs 
i-- pick out specific part of maze --mov: 
0208 AO OB SAL LDY #11 O27F-CA ¥--mo' Ox as a scratchvad to covv pos. UOFl ~ OOF5 (saved registers B.ST,A.Y & X) 
020D B1 be GETHOR ze (uzet) oY 6 rows x 2 0230 10 o& BI L NOTUP ‘The ontputs can drive a LED directly, and if the RAM's are enabled 
020F 99 00 EK Y 0232 Cé Db 0 
0212 88 DEY 0234 Do B MLIKK not ee yreard move all the time, the 5 vositions will be updated every time you go through 
0213 10 FB BEL SETEOR 027€ DO O NOTUP BNE SIDZWY “es the save routine (pressing ST or using SST mode), The address lines are 
t--shift to position vertically 0233 E6 D& Ni S ‘ . 
0215 A2 OA Lox #0 for each of 6 rows.. osia bo 8 ire post? downward move manually controlled, except when K1K is exeeuting a SRITE to the 
0217 AY D& NXDIG LDY posit shift Y positions 23¢ ca SIDEWY DEX Positions in question, 
0219 AQ FF LDA #$F° filling with ‘walls’ o23p po 06 i I ' 
oetn os eet Eon ceticintaee S250 Bo 06 BE LEPT Sie cae also have a telephone-dialler program (12 digits) that uses KIH's 
021C 36 D9 KOL WORK+1,x 0291 cé D2 DEC MZPT keyboard and display, but since lecal probleme may arive, 1 don't , 
O21E 36 D8 ROL WORK,X roll ‘emt 0293 DO EF BNE MLINE. find it advisable to publish it. But if anyone are interrested, drop 
0220 2A ROL A 0295 E6 D2 LEFT INC NZPT left move i 
0221 68 DEY 0297 Ef D2 INC NZFT mee tise: 
0222 DO F7 BNE RKEROL 0299 Do E9 BNE MLINK WUPUS is creat, but wouldn't it be fairer to the beast to change 
1--calculate segments O37F to 02 (and UA4 to 60) 
0224 29 07 AND #7 take 3 bits t--tables (hex listed) OR ee sss 
0226 48 TAY & change to TAB1 02A0 00 08 4O 46 01 09 41 49 
0227 B9 AO 02 LDA TAB1,Y segment pattern TAB2 02A3 13 09 01 Of 04 
022A 95 DB STA WOKK,X ..and store TAB} O2AD 06 06 04 08 
022¢ CA DEX TABA 02B1 01 08 40 40 KIM FACTORY MODS: If you want to keep your machine up-to-date, 
022D CA DEX then be aware that the following modifications have been made 
022E 10 E7 BrL NXDIG t--sample maze follows by the fectory.. . 
y--test flasher '--first 3 bytes are initial cur. 
0230 C6 DS. ~— LIGHT DEC FLUG time out? INIT O2B5 BM 02 O8 MEeor, POLE U4 has been changed from a 74145 to a 74LS145 
0232 10 OA BLL MUG sno y a FF 7 2 CPU: RIG! 
0234 A9 05 LDA #5 clyes, reset MAZE 023 a +0 a of ES 3 1 oO ot FE SF 04 All 650, js now have the ROTATE RIGHT (ROR) instruction 
0236 85 D5 STA PLUG ts 5 54 14 F? DS 04 54 The clock circuit has been changed as follows: 
3 rf 7° 5E 01 00 FD FF 00 00 00 00 00 00 
0233 AS DE LDA WORK+6 +sand.. 00 60 00 00 00 
023A 49 bo EOR #540 ‘flip. o0 
023C 85 DE STA WORF +6 ++-flasher.. raze construction: every two bytes, starting at IAZE, 
t--light display represents a complete cross section of the mazey 
023E A9 7F ruc LDA #37F open the gate al bit in any posttion represents a wall. 
0240 3D 41 17 STA SADD In the example above, the first cross secti 
0243 AO 09 LDY #309 is F’ eF (all one bits) - this would be an 
0245 A2 OA ; LDX #10 . impassable section of wall. The next cross 
0247 BS DI SHOW LDA WOKK,X tiptoe thru.. section (04 03) has only two pieces of wall ‘ 
029 2 io 4 sta SAD +«the segments in it, at positions 6 and 13. The zeros at 
the end represent the ' J 
O2uF cé Dé ST1_ «DEC STALL... .pausing kat ahd cA 
0251 Bo FC Tay ST1 POR SALE = HOS TECHNOLOGY, INC KIN-1 w/1K Homebrew 21102 RAM, POWER 
0222 aa INY SUPPLY 3ea ¢5¥ at 1.54, lea -5V at .5d, lea #12V at .5A, lea -12V at .5A 
025 HH nee SERIAL ADAPTOR BOARD (SAD-1) (Checked out on a CT 1024 works ok) WOOD CASE 
onze by Det EXTRA 22 PIM CONNECTORS w/2 extra on case, CROSS ASSEMBLER MANUEL, TIN 
0287 10 EE BIL SHOW MANUEL, PLEASE WONITOR w/TAPE & BOOKS, TINY BASIC w/TAPE & HEX LIST, 100e 






WEMOREX 30 Minutes ea side tapes w/PROGRAMS. $330.00 takes all 
ROBERT G. LIOYD, 7554 SOUTHGATE RD., PAYETTEVILLE, N.C. 28304, (919) 867-5822 







- CALCULATOR DRIVER 


0000 +12 Data Output File 
O00C +12 Temp Data Buffer 
0018 Keycode (Temp) 

0019 X Store (Temp) 

1700 PA Da 
1702 PB Data 

1703 PB Control Reg. 







LCULATOR INTERFACE | KIM-41__APPLICATION ConnecToR 
‘ ACA reworked by the editor : = Peterese 
a Ef: £232 

18 


Hooking up a calculator chip to s computer sounded 
temahorgn 





like a neat idea even before I had a computer! For over a 
year, I have been searching through the svailable litera- 
ture for all pertinent information on the subject. Need= 
leas to say, ay file hasn't exactly overflowed with mater= 
ial. For ouch e neemingly desireable interface, not much 
has really been done. 





0200 A9 OF inits LDA AOF initialize PB 
0202 8D 03 17 STA 1703 
0205 A2 00 exec LDX #00 


Calculator chip information was hard to get and find- 0207 BD 0003 exl LDA,X read key code 
’ 


ing the chips themselves proved even more of a difficulty, 


It didn't seem worthwhile to use a four function chip as the o20e & 7 02 oan ae 
scientific arrays offered bunches more claculating power for O20F Aé 19 LDX X store 
the same amount of work involved. C211 a5 18° LDA keycode 
Recently, the MOS Technology 7529-103 scientific cal- Oe e oF ma 


0215 DO 03 BNE more 
culator array became available in single quantities. This 
emed to be the route to take. The next problea? How do *S 0217 4c 8C 02 JMP rerang 











O21A BB more INX 
you hook the beast up to Kim? 021B EO 03 BEY noff 
One example of the circuitry necessary to interface oo as a ae OP set 


Ovauw 


< ha 0220 2005 1C noff  JMP out of line 
Vdananhn 


the 7529-105 to a micro was presented in Byte (Sept, Oct 0223 85 18 calc STA keycode 


1976). Thies circuit used about 29 IC's to get a two way 




















i 0225 AO 04 LDY O4 loop count 
couvereetion going with the calculator chip. That's more 7529-/O3 Care. Cue 0227 2C 0217 Al BIT PBD low synch? 
68 than there are on Kim! There has to be a better way. 
Since the calculator synchronizes ll {ts I/O functions O2zh. 0 FB OME AR. bratich ‘on: high. 
Well, there ie a better way to do it. It's called the peing the digit strobes, so aust the computer... eee een p= alarmed 
software approach (replace as much hardware as you can with The digit strobes are tied together to give the computer the beet Ms or 
software). The interface hardvare and software driver pre- sree ppulece MP that it will know the proper time to enter data eon cae oo arr oe 
softvare face P into the calculator and retrieve the calc. output when done 0251 2G 02 17 BIT Fap tow eynehy 
ere were originally released as an application note The computer senses the DISPLAY IDLE time and knows that the a t 0234 30 Fl BMI Al 
by KOS Technology. One hardware bug and several soft vare digit strobe to appear will be digit2 and eo on eam 0236 A518 LDA recall keycode 
jugs were corrected and the thing was modified to work with ‘devi ae 0238 C9 FF it for read code 
6play 
_ nn nnmaynn os tet "vient juts 
There ie one hardware "trick" that you should be avare rt 023D 4A 15R high order vite 
of: originally the 7529-103 was designed to work with a neg- OL f 02 D3 D4 DS pnt DI2. O23E 4A LSR 
ative 7.5v supply. If you saw the Byte article, you can see 023F 4a LSR 
how the chips operating point can be shifted up to use a pon- INPUT KEYCODE DATA ‘-SEGHENT OUTPUT DATA ir coke ag ° TAX: ad ‘2ine auiber 
itive 7.5 volt supply (just reverse the ground and Vdd connec- KEY CODE KEY CODE BARS HEX z 0241 CA a3 DEX 
tions). Now, to make the thing TTL compatible, just lower the 0 ct. cos “m% re) 0242 FO OC BEQ write 
positive voltage to +5 volts. This is outside the recommend- 1 n TAN 2h o. BF > 0244 2c 02.17 Ab BIT PBD high synch? 
ed operating parameters specified by MOS (-6y to -9.5¥) but 2 21 IN 1 06 5 0247 10 FB PBL Al 
most chips will work alright. ( I tried 3 chips and they all 3 31 LOG lk 1 86 0249 20 0217 AS BIT PBD low synch? 
operated correctly at +5v). If you bought your chip from 4 41 x 54 2 5B < O24C 30 FB BMI AS 
Johnson Computer and it doesn't work at +5v - they have assur- 5 51 RCL 64 2. DB \ gouE to Fl BPL A3 
ed me that they will exchange your chip for another one. 6 61 Me ™ 3 oF fn + 0250 A5 18 write LDA keycode 
m2 xB 3. cr o « 
The device driver starts at 0200, takes a series of spec- i 4 66 vee persed mx eT eats 
81 DGR 9 ADA C256 AA TAX on: 
dally encoded keystroke data starting from 0300 and handles the 9 91 STO AS a, 6 a t 0255 2¢ 0217 BL BIT PBD high synch? 
input multiplexing and output demultiplexing from the calcu- ARC AL CA/CE Bh 5 6D a 0288 10 FB BPL BL “en 
lator chip. There ie » limit of 256 keystrokes and the key- . c2 Ye 8 5. iy Zw 0254 BE 02 17 STX PBD write to y-line 
stroke d. MUST be terminated by $FF, The answers will be in + 12 6 7 T 40D N 025D A2 00 LDX #00 
seven-segment format starting at 0000, Thio very basic driver 21 ae it tag 6. rc 9 OOO Or 2c 02 17 Be BIT PAD low synch? 
does not detect calculator underflow, overflow, or convert the x 32 ? o7 € ¢3 ge 0262 30 FB BMI B2 ” 
seven-sepment data to BCD. It's intended just to get the inter- +e ik 10" 28 2. 87 Ht 1 90 26h BE 0217 STX PBD clear y-line 
face operational-you should be able to improve and/or change yx 52 8 7 5 W 0267 88 DEY decr loop cout 
it once you understand how it works. Underflow and overflow = 62 ~ 8 8. iF Vv ; 0268 DO BD BNE Al . 
detection and the BCD conversion routine will be presented ( 22 Lil 48 9 67 5 é 026A 20 AO 02 BS JSR delay 
in an upcoming issue. . ) 82 9 = - 3 € 026d NOP 
WY 92 Display BLANK Hes oye O26E B NOP 
Individual chips may differ slightly in their operating CHS = Aa Reotere Py a8) 0. BA RTS ok, then return 
characteristics 0 the 100 wec. wait loop located at 022¢ ny me by z w a ; 4 
have to be adjusted. (#14 worked for all the chips I tried). ntin 
This corresponds to about one-half of a digit strobe. - co co ved on next pay 
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0270 AO CB = read = LD OB digite-1 KIn-l SwrP 
0272 A2 1h 2 LOX 14 = wait 100 usec Interface for the SouthWest Technical Products APPL <t-o 
poled < vd 7 ar og nie syaent TV typewriter Il and KIM-l, The SWTP TERMIBALS 
0279 CA co DEX n serial interface board is used. Jumper between ae R5-232 
027A DO FD BNE C2 terminals V and 21 of KIM must be used. ' R'7D ry 
0276 AD 00 17 LDA PAD read calc. output After pressing RESET on KIM type in letter A K+ ¥.7K ter 
027F 99 0C 00 STA store code to start system. Most keyboards do not have a i+ Ve. 
0282 88 DEY DELETE key. The transistor is a small KB 
0283 30 EA BMI Bh signal PNF Radio Shack ARCHER package ca vee 
0651120 0247. 23 “RIE Feb coe erect #276-530 (yellow dot), Any small signal FNF yo 
hould work, are 
028A 10 16 BPL CO * : ‘ m4 
o028C AO O1 Yerang LOY 01 rearange Pt s. oo 
O28E A2 OA LDX OA digits oy fr3 my 
0290 BS OD move LDA 00CO,X to 607 17) 
0292 99 00 00 STA 0000,Y proper R M Bender PIR a in 
0295 S int ordersee RD | Box 276 tv, ul 
0297 10 F7 BPL move Ebensburg, Pa. rar 
0299 AS OC LDA 15931 
0298 85 00 STA ‘ai’ 
029D 4C 4F 1c JMP back to KIM fj ’ 
he ae ee Aiepeege ee ee ITED: Awy DATA oN ConsTRuCHG | wo : 
O2A5 2C 07:17 wait BIT CLXKT time out? A simecE TVT FROM SCRATCH 
0248 10 FB BPL wait are DAN Saree ve 
O2AA 2C 0017 B3B BIT ADAT look for high 1825 BE AL : 
O2AD 10 FB BPL B3B segment P STANTON, C. ts 
O2aF 60 RTS back to cale Variable Speed ang Li 12Be8i je88°5E 
- Y. and Light Contro1 Hoimd 0 
nks t CHRISTOPHER FLYNN FOR HIS HEC The basic AC Triac interface d i ene wie 
IN PEBUGGING THE DRIVER SOFTWARE Lf KIM-1 Newsletter (p.8) can disc Be-used with ate modification 
for light dimming, motor speed control, heate: i 
ee of Pulse Width Modulation technique. Using the circule show? hoes”? 
Verify Cassette Tape James Van Ornum che Ae] following program one can vary the on/off time ratio of 
23° Eornela Grive of the On pulservithinnt ftatd’efaestorerees aegerminen, the widen 
Hazlet, NJ 0773 sit mterval and the average coducti- 
y of the Triac. The program could easily be modified for ex 
; ample 
Do you want to verify the cassette tape you just recorded before toate dim a light during a slide show or to accelerate a model 
the information is lost? Then follow this simple procedure: Note: we foun i + 
Note id lights to flicker «in 
at certain brightness settin g) fe NOV odleb 
a, hanually verify that the starting address ($17F5 $17F6) igs PAO . 
the ending address ($47F7, $47F8) and the block identifica- Prease let me know if somebody “<CLeN 
tion ($17F9) locations are correct in memory. and/or regedit circuit Cat Hhtecell Toine 
2. Enter zeros ($00) into CHKL ($47E7) and CHKH ($178). 00 DB CLD 17 10 FB BPLI 
01 A915 @) LDARIS s4.t6 Rs 19 AS 2E BeL@ 
3. Enter the following routine: 03 85 2E STA 2E 1B FO £4 BEQ G) check cL 6. T2as eng 
OS AQ FF LDA #FF 1D C6 2E DEC 2E deve, 4 
47EC CD 00 00 VEb emp START 07 8D 01 17 STA 1701 §£T*7°® IF 20 6A 1F see ot coumbar 
JT7EF DO 03 bne failed OA Ag 01 LDA #01 *-"*“*““ 22 C5 2E CNP De tate, het ae beg 
CMP . - 
ATF’ o4C OF 19 jmp LOAD12 OC 8D 00 17 STA 1700324"8° 24 po £9 SE 2e Reomntae me equal 
47F4 4C 29:19 failed jmp LOADT9 i 3 °° 7 LDA #05 ted 26 A9 00 LDA #00 se4 PA (raiac tates~ 
1 STA 1706 oiSS\-f" 28 8D 00 17 STA 1700 ¢eu)teo oF 
4, Kewind the tape, enter address $188C, press GO and playback 14 2c 07:17Q@ sit 1707 cist boner 2B 4C OF 00 amp @) tune 
the tape. If the tape compares, the LEDs will come back on Gout 
with address $0000. If there is a discrepancy between 
menory and the tape, the LEDs will come on with address Use Of the ST key for Starting a Program Cass R. Lewart 
If you store the starting address of rc 
I thoroughly enjoyed HUNT THE WUMPUS in the November 1976 User 17FA and 17FB then you can always Peatart ‘the proges ty cine 
Notes. However, assembly language source listings are necessary pressing the ST key without having to press AD followed by the” 
for us to experiment with the programs, I am willing to convert starting address, followed by pressing GO. For example Hunt the 
handwritten source listings into typed and assembled versions for Wumpus starts at 300. You should store 00 in 17FA and 03 in 17FB, 


inclusion in the User hote 





= to restart the program you theb only press ST. 


ae 
ie 


Cass R. Lewart 
12 Georjean Drive 
Holmdel, N.J. 07733 


Two independent clocks are 


FOR You Cuesspravees !! 
Chess Clock Program 


Program starts at location 200. 


Chess Clock Program (cont.) 











operated by the two players by depressing 1 or 2 respectively. 
The right two digits show the move number, the left four digits LOCATION CODE MNEMONT, 
show minutes and seconds. Maximum time is 99 minutes 59 sec. 27a C6 DS DEC MULT 
The clock program can be finely tuned by changing the value 27¢ DO E7 BNE re) 
of word 27, increase by 1 slows the clock by approx. 6sec/24 hours 
and vice versa. The value shown of BF was about the best with 27E AS BF LDA #BF 
my unit. ; 280 8D 06 17 STA 1706 
LOCATION CODE MNEMONIC oc ¢ MNEMONIC 283 2c 0717@ _ BIT 1707 
200 AQ 00 “LDA #00 230 85 D3 STA D3 286 10 FB BPL @ 
202 AA TAX 23F AS DO LDA DO 288 18 cle 
203 9D 00 00 () STA,x 241 85 FB STA FB 289 AS FA LDA FA 
206 E8 INX 243 AS DL LDA D1 asp . 69 01 ADC #1 
207 DO FA BNE @ 245 85 FA STA FA 280 85 FA STA FA 
209 20 1F 1F @ JSR DISPL 247 60 RTN 28F c9 60 CMP #60 
20c 20 6A 1F JSR GETKEY 248 AS FB @ LDA FB 291 DO 05 BNE ©) 
20F c9 02 CMP #2 24A 85 DO STA DO 293 38 SEC 
211 DO F6 BNE @ 24c AS FA LDA FA 294 AQ 00 LDA #00 
213 Ag 01 @ wa #01 24B 85 D1 STA D1 296 85 FA STA FA 
215 85 D4 STA FLAG 250 AS D2 LDA D2 298 AS FB O) LDA FB 
217 20 60 02 JSR SUPER 252 85 FB STA FB 29a 69 00 ADC #0 
21a 20 31 02 JSR TRANSF 254 A5 D3 LDA D3 29¢ 85 FB STA FB 
210 AQ 02 LDA #02 256 85 FA STA FA 29E 4c 60 02 omP (0) 
21F 85 D4 STA FLAG 258 60 RTN 
221 20 60 02 JSR SUPER 259-25F not used 
4 18 cre 260 FB SED Suren 
a2 @ MOVE-A-BLOCK 
225 AS F9 LDA F9 261 a9 04 LDA #04 set eucr 
227 69 O1 ADC #1 263 85 D5 STA D5 1780 38 SEC 
265 a9 FO @ a 1781 AS Ok LDA ZPg Ok 
229 85 F9 STA F9 LDA #FO TTinen 1783 E5 00 SBC : 00 
228 20 31 02 JSR TRANSF 267 8D 07 17 STA 1707 1783 ie ee ae ee 
22E 4c 13 02 sup @ 26a 20 1F 1F @  JsR DISPL 1789 5 ot Bd " ot 
LDA #02 Tee¢26D 20 6A 1F JSR G! 
( 231 we BR SEree 178D 90 1 BCC +2) MOVEB 
— 233 C5 D4 CMP FLAG = 270:« C5: D4 CMP FLAG 178F 38 MOVEP SEC 
272 D 1790 AS 02 LDA ZPg 02 
235 DO 11 BNE @ 0 O01 BNE © itge Be 00 uh the on 
237 AS FB LDA FB 274 60 RIN 179 a8 TAY 
* 
239 85 D2 STA D2 275 2c 0717 G)__ BIT 1707 1793 & “ ore 
23B AS FA LDA FA 278 10 FO BPL @) 1799 B1 00 =LOOP1 LDA (00),¥ 
179B 91 Ok STA (0k) ,¥ 
179D 88 DEY 
\ + $8 179E DO FO BNE LOOP1 
- . Bo oe f§ HERS | BRD 
M bal = hom SD 7 ‘A 
2 Gig Or Sos SeS 38g8 mS SFEL3 17a 88 br’ 
Ql x 28% SE wt RS ees? 
Eno § oSSeae DEDtwh 17A5 30 BMI END 
- soe SESBSSEL ESSH ss 17a7 38 MOVEB SEC 
j t.% gio BEPOgFEE FEELE, LAC ih te 2 
Y £Yos 
i: Ae FE ge -shgar28: Sea. %d isac 85 08 STA " 08 
3 So, ER EL Bae wii SBee, TSESES  17TAB £6 08 INC " 08 om 
5 ¢ F 3 ae Se gue 2g? 2.2555 1780 a0 00 LDY #00 
ey sys SAO Andze* Se effec 17B2 Bl 00 LOOP2 LDA (00),Y¥ ‘ 
ah 5 bide Pee SEU5Z a7 8 SE eS 1734 91 Ob STA (04), 
t ER Ye 8 Ex § #423 SO 2.28 .y 1736 c8 3 Iny 08 2 
fF psut yt ane srits)end e°ues 17B9 Do F7 BNE Loop) 
‘ < « eS J fe * 
= a ear ane 2s SSsh., Sg5955 isp 18 END cle a 
Ny Ropes ok < neg toe Bae .m  17BC AS 02 LDA ZPg 02 “y 
He 3 Pos oS SEtet' st) Boats TBE 65 06 abc * 06 & 
1s YE kK 8 Wesdoeud F°"833 1700 85 02 sta " 02 & 
g x $ go5esis3 Fexsez 1702 as 03 Loa " 03 & 
5 oselay go ..2 17¢) 07 ADC 07 
a ye BOS Geng Bee teuSs BeESAE 1706 85 03 st * 03 ¥ 
BS yegegrk x Sg EFbs cere Seeges 1708 4e UR 2 ae SRA <@ 
Set Stee Ae RS gugdnia 
7 g : ye x ‘ e Zz F} See Beas 80) BS » 0000 = SAL) : 3 
Ye ees aonoan 
= nr a >» BoEsets3  F58kou 0001 = Sat) original ey 
x gv 4 3 e 2Sge,&o es Eg ae 8 ) Block of y 
iY 2 Ta 82 6S 28 sensua » 0002 = EAL) bytes Ws 
zp Sow we ckusess BEu°S*8 0003 = EAH) > 
s N x 3 S8ssxe ese o8S roy 3 Qo 
gbdy yf ep sthee'bee cifgeg? Sur aguytw oem 8 
a Ss 2 * ©CVQOLES 
< 2 Se ee yy doe Fel ccasun ESSSSo2 
ae egress E wu NOSSESECS BEL LCS 0006 = dif L) Number of spaces 
Ee ge = of sas es2 ers 3 0007 = dif H) block is moved 
RT SBeosno4 SésES2 (signed notation) 
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0008 = Number of bytes in block 


A REAL "REAL TIME CLOCK" from Charles H. Parsons 038D 18 CLC Escape to KIM if 1 on KIM is Pressed 











80 Longview Rd. 0385B 6901 ADC #$01 And Avance Minutes 
Monroe, Conn. 06468 0390 8582 STA MIN Line Code label Instruction Comment 
zn 0392 C960 CHP #$60 Until 60 Minutes 
ieee really glad that MOS put the timer in the KIM-1 0394 D019 ANE RTN 0300 206A1F KIM JSR GETKEY Go Rack To KIM If 
sodule. I now have a real time clock running off the timer 0396 A900 LDA #300 Then Start Again 0303 C901 CMP #301 KIM Keyboard Is One 
in the interrupt mode. In reading Jim Butterfields' suggest- 0398 8582 STA MIN 0305 Dood 3NE ENDR 
ions I felt the easiest way to do this would be to repeat- 039A A583. LDA HR And Advance Hours 0307 201F1F JSR SCANDS Delay To Make Sure 
edly enter F4 into the timer each time the interrupt (NMI) 039c = «18 cLe 030A 206A1F JSR GETKEY 
occurs. This theoretically produces a time of 249,856 micro- 039D 6901 ADC #$01 030D = cg901 CMP #$01 
seconds or just under & second. The adjustment to X second is 039F 8583 STA HR 030F D003 BNE ENDR 
done with the same timer in the interrupt program. A fine 03A1 =-c912 CMP #312 Until 12 Hours 0311 4co51c JMP SAVE1 
adjustment of the clock can be wade by sodifying line 0366. I 0343 D002 BNE TH 0314 60 ENDR RIN 
have added @ number of subroutines which use the clock infor- 0345 E684 INC DAY Advance $ Day 
mation but I will document only three things here. 034? cor Tu CHP #915 if 13 Hours wees This is a subroutine which will return to 
rain e the KIM monitor routine without stopping the real 
1, Real time clock O3AB OA ron 
2. Display clock on the Kim-l readout OoAD, $383 TDs £901 tise clock. It 4# done by pressing 1 on the KIM 
3. Escape to Kim if #1 key on Kim is pressed O3AF D8 RW CLD Go ack To Hex Mode . : 
0380 AgF4 LDA #3P4 Start Timer With Interrupt 
The escape to KIM allows KIM to be run without stop- 03B2. «8 
ping the clock. An exception to thie is anything using Ofbe Halal on TIMER. In 299,850 Microneconda editors note: 
the NMI such as single step operation. This is a price paid 0386 A 
for giving the clock first priority, I aleo have a speaker oane oe _ Restore:-Y THis Is BUT ONE METHOD OF SETTING uP A REAL 
hooked to PBO to provide various alarms and sounds. The KIM 0388 AA A TIME c % ANorm: 
runs fine in spite of the interrupts but I suspect they would niin 68 La Restore i; To heck FoR NovR SYSTEM: en WAY. 
interfere vith the audio tape operation. Pressing the KIMGO 03PA 40 RTI Return From Interrupt 0 AGouT wours BE 10 USE A CLOCK CHP 
button will get you out of the KIM loop. Don't forget to con~ Gsucw as THE maim S312 M 3) 
nect expansion connector pin 6 to application connector pin This routine uses the NMI to update a clock in zero oR MMS313) THAT 
15 per application note #2 1 page locations. Since the crystal aay be elightiy off HAs BCD Awo 4 Pot s€ /secoms output. 
one MHz a adjustment is located at » NMI point- - 
ers must be set to the start of this prograns. ae) 6 BIT isPuT PeR with Inreeuver ? 
. APAgWLITY Worto Do THE Jo8 (Inet 8212?) 
0080 QSEC Second Counter Display Clock On KIM-1 Readout AW YONE 4. 
0081 SEC Second Counter Dont THs Ver 277 
0082 MIN Minute Counter 
0083 HR Hour, Counter. Aten Line Code label Instruction . Comment P 
0084 DAY y Counter For AM-~! 
17FA 60 NMI Interupt 03co A900 LDA #300 Reset 4 Second Counter How Bour Toucw-Tonwe ? 
ATEB 05 Rointers O3ce ore TDA Baru Start Timer With Int A cHIP THAT Looks Goop 
ar mer nterrupt 
Interupt Routine $386 Boor17 STA TIMEF FoR THIS APPLICATRH 15 
; o a2 L DSP LDA SEC Start Here If Clock Is Running JHE MOSTEK MKS5O8CN. 
0360 4B PUA Save A 3CR 5P STA 1NH Display Clock On KIM B 
one. Be ra 03cD 582 LDA MIN ITCAW BE DRwen Dieccr 
i ae eM Bar oer FROM oe 8. B17 ourter 
0368 «43 PHA save ¥ 0303 85FA STA POINTH PORT ANO NEEOS AN 
0365 4983 LDA #383 Fine Adjust Timing 03D5 «201 F1P JSR SCANDS : INEKFENSIVE CoLoR TY 
0367 8p0417 STA TIMES pane 200003 JSR KIM Escape To KIM XTAL (3.58 mn2). THE 
O36A 200717 TM BIT TIME7 Test Timer 3D) 200002 JSR MTIME Minute Timer 
036D 10F3 BPL TM Loop Until Time Out 03DE 202003 JSR REEP Sound On The Hour MKSo8CN 1S AVAILABLE 
036F §E680 INC QSEC Count %¢ Seconds 03E1 209002 JSR UPDATE Calendar 3 
0371 =A904 LDA #304 Do Four Times Before 03E4 207502 JSR DSPDAY Show Date FoR 8.91S FRom TRI- kK. 
0373» =c580 CMP QSEC Updating Seconds 0387 ; ¢ aa TE 
0375 «D038 BNE RTN SEA Pur EA's (NoP) IN Loc. O3DB—O3F8 uNTIL 522 N. 43S Avenue, 
0377 A900 LDA #300 Reset % Second Counter 03ED o \ 
0379 8580 STA QSEC 03F0 Axe OTHER Koutines ARE AcvED. fee ADe— Glendale, Arizona 
0378 «18 cLe 03P3 ITIONAL RouTINES WILBE IN AN UPCOMIME 8530] 
0370 «FB SED Advance Clock In Decimal 03F6 (ssvE—E — EcR 
037D «A581 LDA SEC 03F9 
037F 6901 ADC #$01 Advance Seconds 03FC 8 =4cC903 JMP DSP 
0381 ©8581 STA SEC 
0383 ©c960 CMP #860 Until 60 Seconds 
0385 D028 BNE RTN HELP! Desperately looking for a BASIC Interpreter = Edward L. Pavia 8 
0387 A900 LDA #$00 Then Start Again to run on my KIM-1 System. Will gladly 127 Sugar Maple Drive PAGE 
0389 ©8581 STA SEC P 
0388 A382 LDA MIN pay! At your mercy! Rochester, N.Y. 14615 
( & ‘e 


TAPE DUPE Jim Butterfield, Toronto 
The beat way to copy a program to another tape is to read it 
in, then write it ost, This completely regenerates the 

level, waveform, frequencies ami timing of the tape. 


If you have a lot of programs to copy, doing this manually 
becomes a tedious business, ‘ith a little hardware to connect 
to the renote control jacks of the casse**te recorders, you 
could generate an aitomatic copier program. The tapes would 
atart and stop under program control. Challenge: who's 

going to be the first to sutmit such a program to USER NOTES? 


In the meantime, here's a little program to copy all the 
contents of one tape to another, It regenerates the level, 
waveform, and frequencies, bit not the timing. Three out of 
four isn't bad, It can't quite manage Supertape, but all 
other speeds--regular, 2 and 3x--will copy OK, 


Connect your two cassette recorders in the usual way, at 
the AUDIC IN and AUDIC OUT points, With the program running, 
start the recorders, All programs will be copted from one 


tape to the other, 
Program TAPE DUPE is fully relocatable, 
0000 A9 27-2 START LDA 4$27 SED value 
0002 A2 ¥ Go IDX 48¥ Directional rog's 
0004 8 43 17 ST PED set for input 
9007 42 07 wx 47 PBS (CCNT) set 
0009 SE 42 17 S™ SD for input 
O00C AO SE Loy #94 Kagh frequency 
O00E 2 42 17 HIT SD Zero or one? 
0012 10 02 BPL OVER 
0013 AO A3 LDY 4163 Low frequency 
0915 A2 F = OVER'-«s«LDK 4$HF_~— Directional reg's 
0017 8E 43 17 STK PND set for output 
oola 49 80 EOR 4580 Reverse output tit 
0olt & 42 17 STA SD and send it 
ColF & 44 17 STY CLELT = Set. timer 
0022 20.47.17 WAIT BIT CLERDI and wait 
0025 10 FB BPL WAIT 
0027 30 DO EMI GO 
- 
<a q w 
er en? oe 
. =X w 
Fae = Ke 0 
ae & 2eha pote 
« Vv Py é. ww an] 
a & 0 s “ t 
1 wv 5. = < ~+* &u 
x 6 ¢ vt £ Naz 8 
tw. © =itt 3 oa 8G ps 
+ >miaia FCED Te 
ws <3 yu, -e ‘ok 
~e 58ers uy Pe 
SAT gid Ft SF FZ we 
oa " a Peaoste 
iv 2X2 o E ecqa 
KE = ~€e § SY gu 
SOeevn GS ie 
= £5" @009 © 
“2 @O 








@ Tumr Back 


T. W. Hubbell 

533 Wintergreen Gr, 
Victor, N.Y, 14564 ' 
Here is a short program that may be of interest to 
others, I wanted to load from tape under program 

control using the KIM load memory from tape at 1871, 

but had some difficulty returning from the monitor, 

I use the KIM recomended speaker interface driving 

a 15ma 6v relay to turn the recorder on and off from 
PB-2. I finally found I could break in at "VEB" 17EC, 


Keep up the good work. 


LOAD TAPE BREAK = 
Set up the following: 


17PFE 5800 set up vector 

OOE6 Xx reserved to save accumulator 
00E7 ELEH tape , end low, end high, address 
O0E9 8BDXXXX emulates "VEB" 2 
OOEC 4SCEF17 UMP VEB + 3 

START - 

0050 A900 LDA #00 set ork 

0052 8DEC17 STA 17EC 

0055 407818 oMP 1878 return to KIM 
0058 85E6 STA E6 save 

005A ADEE17 LDA 17EE SAH 

005D 85EB STA EB 

OOSF ADED17 LDA 17ED SAL 

0062 BSEA STA EA 

0064 CS5E7 CMP E7 end low 

0066 DOO? BNE 07 006PF 

0068 ADEE17 LDA 17EE SAH 

006B C5E8 CMP EB end hi 

006D FOOS BEQ 05 0074 EXIT 
OO6F ASE6 LDA £6 get accum. 
0071 4CE900 JMP OOE9: jump to “VEB" 
0074 UEXXXX JMP Your exit 
NOTESs 


Load tape ID to 17F9 as usual ( load from program). 

When recording tapes for this use, record to end address 

+ 2, rather than the usual + 1, The end add, above is 

the + 1. (Otherwise the Yonitor will see the end charcter 
on the tape before it gets back to BEQ), 

Sorry but this will not exit if it is called up,and return, 
as a Subs perhaps someone can debug that? 

Caution the stack will be pushed down in page 1 

quite far. 


It's not perfect, but it does allow KIM to call 
up and sort a lot of tape a little at a time, etc. 


Cost Alp 
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ROBERT G. LLOYD 

1554 Southgate Rd. 
Fayetteville, H.C. 28304 
(919) 867-5822 


Here is a program that i wrote in Pittman Tiny BASIC. 
‘The program lete my children Robin 12 & Bobby 8 play with the computer 


and at the eame time learn math. 
I do not ha: 





a Teletype so i cant send you a listing of the running 
program. I am sending a copy of what is om the TVT. 
THIS IS A MATH TEST 
12 
16 
? 
For the right answer 72 - YOU'R RIGHT - and a new problem is set up. 
Por a wrong answer 62 - 7? WRONG 77, TRY AGAIN - the same problem ie set up 
if you get it WRONG 3 times - THE RIGHT ANSWER IS 72 


THE PROBLEMS ARE RANDOM, the limite are set at linats 26 for x & 265 for Y for 


multiplication & at 365 for X & 355 for Y for addition. 





10 PR “THIS IS A MATH TEST 350 LET zim (ager 
15 PR 355 LET Y=(RND (56)+41 
20 LET v-f 360 IF X<1f COTO 386 
30 LET Inf 370 IF D=1f6 como 398 
35 LET 2-6 380 PR™ "4X 
40 PR "TYPE 1 POR MULTIPLICATION™ 385 GOTO 416 
50 PR 390 PR™ "4X 
60 PR "TYPB 2 POR ADDITION" 410 IF Y<1f GOTO 436 
70 PR 420 IF Y>~1f COTO 446 
80 IKPUT T 430 PR* # "47 
90 PR 435 GOTO 456 

100 I? I=1 GOTO 266 440 PR "+ "4Y 

110 IP I=? GOTO 35% 450 PR". ", 

120 IF DeQ GOTO 5 460 LET Q-KeT 

130 IP D<7Q GOTO 666 470 INPUT D 

190 END 480 GOTO 126 

200 LET X=(RED (12)+1 500 PR "YOU'R RIGHT" 

205 Lew Y<(RND (12)41 505 PR 

210 IF X<1f GOTO 236 508 LET Z=Z+1 

220 IF X>=16 GOTO 246 509 IF 2<3 GOTO 512 

230 PR™ "4X 510 coTo 16 

235 GOTO 766 512 I? I=1 GOTO 26 

240 PR™ "4X 514 IP I=2 COTO 356 

260 IF Y<1f GoTo 266 600 PR" WRONG , TRY AGAIN" 

270 IF Y7=1f GOTO 299 610 PR 

280 PR" X "5Y 620 LET VeV41 

285 GOTO 366 630 IF ¥=3 GOTO 656 

290 PR"X "YT 640 IF I=1 GOTO 216 

300 645 IF I=2 GOTO 366 

310 650 PR “THE RIGHT ANSWER I8 ", 

320 655 PRQ 

330 660 PR 

670 GoTo 1f 
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Dear Eric: 


I am writing to tell you about some of the experiences I have had with 
Jim Butterfield's "Supertape!" program and its derivatives, "fastape" and 

peedtape." I have a number of different models of cassette machines avail= 
able to me, and I have been primarily using stereo cassette tape decks manu- 
factured by J. V. C. and Craig. When 1 first attempted to use Jim's programs, 
I could get "fastape” and "speedtape” to run fine, but the "supertape” pro- 
gram after initial synchronization and the reading of a few Bytes, would be- 
come unsynchronized, resulting in an abortive read. Also, the level settings 
were extremely critical to even get initial synchronization. These observa~ 
tions were made by means of the use of a “VU Tape” program. 





After some experimentation with the various values indicated on page 12 
of Volume One, Issue Two of KIM-1 User Notes, I have found that loading hex 
value 03 into address QIBE, and hex value 02 in addresa location Q1CQ_seems 
to give virtually l-proof read/write performance to my system over an ex~ 
tremely wide range of input levels and types of cassette. I have used Maxell 
UD, Realistic low noise, and Sony low-noise tape, to mention a few. 





One other item of interest concerning supplies for the KIM-1 should be 
mentioned. Of course, one can never be too careful with ones choice of 
power supply protection and regulation. The route I have taken is to use 
an existing well-regulated supply capable of delivering either nine (9) volts 
or twelve (12) volts at approximately 1.2 amperes. I take the twelve (12) 
volt output line and feed it into an LM-309-K voltage regulator mounted on 
a heat sink. The output of the LM-309-K, of course, goes to the five (5) volt 
buss of the KIM-1, and the twelve (12) volt supply output line also goes to 
the twelve (12) volt buss which operates the phase-locked loop circuitry on 
the KIM. One may crowbar the output of the LM-309-K if desired. I have found 
that by reducing the original power supply output voltage to 9 volts, the 
L4-309-K operates at greatly reduced heat dissapation requirements, while the 
phase-locked loop circuitry, operating at the nine (9) volt level, seems 


practicably unimpaired in performance. 


speed “supertape:" programs off of tape. 


This is true even when reading full- 

I also want to say that I think the User Notes is a very fine effort, 
and although I read a great many "slick" micro processor magazines, I know 
that the User Notes, when it comes, will always have something I can really 
use. 


The single most important thing, from my standpoint, that anyone could 
come up with for the KIM, would be a software method of teaching KIM to read 
and write serial baudot, using the resident firmware to shorten such @ pro- 
much as possible. The machine should have the capability of operating 
baudot"™ mode when running other programs. 








Thanks again, Eric, for a most valuable publication. 


Very truly yours, 


5 o wr . 
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James R. Davis 
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WHAT THE HECK JS TOP-DOWN PROGRAMME NG? Jin Butterfield, Toronto Be 
~o, 
hang around with programming types, pe likely to hear Are you sterting to see the idea? Keep that flow in order eo eg> e o<gen 5 
hese of busavords that are popular thoes days: atructured whenever you can .., you'll ond up with easier, short branches; : 3 ev : Zz ha] g § 28 
programing; and top.down programing. and you'll often save memory: teoae SES 54 eer gs las 
° on 
‘The experts don't agree on exactly what the terms mean. Some say Aes final example: sometimes you can elimindée branches entirely SEP5 goo REE aets® § 
that they are a type of computer language; others claim that they by csreful use of the ORA, AND, BOR, and ADC instructions, TS Re «Se momen BREED |B 
are a way of thinking, Read on and make your own opinions, Often, whan you need to generate a flag or spectal value, PERO ROR “BSS 2 elBG * 
you can calculate it rather than testing and branching. web? Fe. 8 S FAbos x 
We'll structured ranming rather quickly, It's related Sa red Bas zoe iy 
to tp eeud pincraniiig techniques. But etcetera programming Let's look at the Lunar Landing program previously published S58 me Lopabede & id g “4 = 
doesn't adapt too well to machine language or assembler programming; in User Notes, This part of the progrem (which follows a Sago REE SOe7S Bunge 8 
At doesn't even fit Tiny Basic, So we'll concentrate our efforts call to KIM routine GETKEY) 1s testing for the keys A (altitude) edn aoe Ss 83:6" & 
‘on top-down programming, which can indeed be useful to the small or F(fuel) ... (since the program is in decimal, A is 10 and Bee? ate w2ng s 
computer programmer F is 15). We'll sesume that keys B,C,D, and E may be allowed aa3 Soa zRRS 
P ¥ to produce the same result as F: peer ane Fernas & 
In principle, top-down programming means this: try to avoid your Saks Pez Meee “oe a 
ceoeraas camping about too much, Instead, try to get your progres WON-TOP-DOWN CODING TOP-DOWN CODING aes H kd 28 8 « 8 Bg mg es a3 é 
to flow smoothly from the start to the end, (Subroutines sre OK, DOKEY CMP 4$15 FT DOKEY CMP #$10 numeric? Be FBT Memo Beouds ~ 
since the program flow always retums to where it left off). BNE NALT BCC RAL2 Sik fe 8 me ale P ro? 
STA MOE set alt mod HOR #410 A becomes Szye BER mga a vB ‘ 
What does that mean in real terms? Let's take some examples, RTS - wee cnmetae En Ras reo Feces 
WALT CHP #610 AT RTS moo Mat BBR wee 
Suppose we're writing a little division routine, At this point ENE NAL2 WAL2 ...continues eo ‘gt BR" oon ae 
in the program, we have the number to be divided in the sccumulator. LDA 400 we ga o © mEB” 8 
The divisor, suitably shifted, is in location DVSR, and our taak STA MODE BS 8 of S os LR EMR 
40 this: If the sccumulator is not 1 than DVSR, subtract DVSR RET RTS sf a3 2 iat xs “3s 
and add one to QUOT, the quotient, We might be tempted to write: WAL2 BCS RET non-numeric? Pe aa se 3 Eee 6 
te s of J Or 
CMP DVSR ...e@lsewhere in the program: See how the EOR slimistes al) that testing? eg 8 ¢ & . ee 
BCS SUB SUB SEC Sn ORG 8 eeag 
WEXT =. program continues ns aUor The advantages are obvious, So: next time you're programming, g 3 ac z are 
tet take At from the top! we FE phek : 
a Bo < $3 
What can we do with this to make it top-down? Well, the ~ % i oe 
problem with the above coding is that we jump out of line & 2 z 
to get to SUB, and then have to jump back, (And don't forget - 
that most programming errors are csused by bad Branches and Jumps). wood 
A little top-down thinking produces: NIAGARA aT 
CMP DVSR COLLEGE nsa1 Coming uP: 
bt alt : OF APPLIED ARTS “Lae ss2 
& TECHNOLOGY 
INC QUOT More qqmes— 
WEXT .. program continues 
éodinee. 4 ve ach presently using the KIM-1 systems at the a sofiware driver i. 
See how the program ‘flows through'? We've saved space programming ac Teton in their third year operational, . th Ss P 0 
coding 1s easter, (The missing SEC is a gift; the cerry’s set anyway). of microcomputers. reese Cecnnsanes involved, tn :the use Ni WTP Gaaemcs Osprey. 
That seems a little too simple, Let's take a slightly tougher one, uUTILe ROGRAM: 
Somewhere in the program, we need to set the X register either of ‘utenti If you know of any other educational institution WP Ss. 
two ways: to 10 if the accumulator is positive, or to 20 if the ently using the KIM-] (or any other 6502 configuration) Ah co +, 
accumulator is negative. Please let me know. neerlers 
Seems like we can't top.down this one, Either the positive sccumulator WHAT HAVE You Done 
situation or the opposite will have to branch out, it seems, Yours respectfully, 
You can't "flow through" and have it both ways, right? maybe all We WITH YouR Kim~t ? 
Bron. erin the educators Johh W. Clark, Wow ‘aour some Hagoware 
Lox #410 Should actin School of Applied Science svurr? 
Tar to test scemmulator only ouch ?) and Technology. 


BPL POS Af positive, lesve X st 10 
LOX $620 «else change X to 20 


Pos ..coding continues ; PAGE 44. 


